home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / library.arc / ENTER.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.9 KB  |  66 lines
  1. * ENTER.CMD - subprogram to enter new data into the
  2. * SUBJECTS/REFERALS data base.  Called by GUIDE.CMD.
  3. * by M. Timin, November 1982
  4.  
  5. * REFERALS.DBF is PRIMARY, SUBJECTS.DBF is SECONDARY
  6.  
  7. STORE T TO MORE
  8. DO WHILE  MORE
  9.  
  10.    * enter data into a new REFERALS record:
  11.    SELECT PRIMARY
  12.    APPEND BLANK
  13.    STORE F TO DONE
  14.    DO WHILE .NOT. DONE
  15.       ERASE
  16.       @ 2,2 SAY  "Disk Number    " GET   DISK
  17.       @ 4,2 SAY  "File Name      " GET   FILE   PICTURE '!!!!!!!!!!!!'
  18.       @ 6,2 SAY  "Locating String" GET   SEARCHKEY
  19.       @ 8,2 SAY  "Description    " GET   DESCRIP
  20.       READ
  21.       ERASE
  22.       @ 2,2 SAY  "Disk Number     "+   STR(DISK,2)
  23.       @ 4,2 SAY  "File Name       "+   FILE
  24.       @ 6,2 SAY  "Locating String "+   SEARCHKEY
  25.       @ 8,2 SAY  "Description     "+   DESCRIP
  26.       @ 12,2 SAY  "Is this correct? "  GET  DONE
  27.       READ
  28.    ENDDO
  29.    
  30.    * enter data into one or more new SUBJECTS records:
  31.    SELECT SECONDARY
  32.    STORE F TO DONE
  33.    DO WHILE .NOT. DONE
  34.       ERASE
  35.       STORE "            "  TO SUB
  36.       @ 2,9 SAY P.DESCRIP
  37.       @ 4,2 SAY "Enter a SUBJECT name under which this"
  38.       @ 5,2 SAY "reference might be classified"  GET SUB  picture '!!!!!!!!!!!!'
  39.       @ 7,2 SAY "(Hit return when there are no more subjects.)"
  40.       READ
  41.       IF SUB="            "
  42.          STORE T TO DONE
  43.       ELSE
  44.          ? "Is "+SUB+" correct? "
  45.          WAIT TO WHATKEY
  46.          IF WHATKEY="Y" .OR. WHATKEY="y"
  47.             APPEND BLANK
  48.             REPLACE KEY WITH $(P.FILE,1,6)+$(P.SEARCHKEY,1,8)+STR(P.DISK,2)
  49.             REPLACE SUBJECT WITH SUB
  50.          ENDIF
  51.       ENDIF
  52.    ENDDO
  53.    
  54.    ? "Do you have another REFERAL? (Y/N) "
  55.    WAIT TO WHATKEY
  56.    IF WHATKEY <> "Y" .AND. WHATKEY <> "y"
  57.        STORE F TO MORE
  58.    ENDIF
  59. ENDDO
  60. RETURN
  61.    
  62.  (Y/N) "
  63.    WAIT TO WHATKEY
  64.    IF WHATKEY <> "Y" .AND. WHATKEY <> "y"
  65.        STORE F TO MORE
  66.    ENDI